 
C     $Id: matout.F 17 2012-12-07 05:10:30Z wangsl2001@gmail.com $
*Deck MatOut
      Subroutine MatOut(X,M,N,MM,NN)
      Implicit Real*8(A-H,O-Z)
      Include 'iounit.i'
C
C     Matrix print routine.
C
C     Common/IO/In,IOut,IPunch
      Dimension X(M,N)
C
      Call OutMat(IOut,1,X,M,N,MM,NN)
      Return
      End
